'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Switchto(Source As Form, View As VIEW)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As FORM
	Set Source = Bind(Objectname_)
	On Event Switchto From Source Call Switchto
End Sub

'++LotusScript Development Environment:2:2:Switchto:1:12
Sub Switchto(Source As Form, View As VIEW)
	CurrentApplication.ApplicationWindow.DoMenuCommand(IDM_NEWREC)
	
	Currentview.Save~ Web~ Site.Body.URL.Text = strURL
	Currentview.Save~ Web~ Site.Body.Web~ Page~ Title.Text = strPageTitle
	
	Source.Body.URL.SetFocus
	Source.Body.Web~ Page~ Title.SetFocus
End Sub